10 IFA=0THENA=A+1:LOAD"FILL CODE",8,1
20 POKE53280,0:POKE53281,0:PRINT"[147]SCREEN[160]FILL[160]ROUTINES"
30 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
40 PRINT"SELECT[160]AN[160]OPTION[160]AND[160]PRESS[160]THE[160]SPACEBAR[160]";
50 PRINT"AFTER[160]THE[160]PROGRAM[160]HAS[160]FILLED[160]THE[160]SCREEN."
60 PRINT"1[160]BASIC"
70 PRINT"2[160]MACHINE[160]CODE"
80 GET A$:IFA$="1"THEN110
90 IF A$="2"THEN120
100 GOTO80
110 FORA=1024TO2023:IFPEEK(A)=32THENPOKEA,42:POKE54272+A,7
115 NEXT:GOTO130
120 SYS49152
130 GETA$:IFA$<>" "THEN 130
140 GOTO20